home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / guienv376.lha / GUIEnvironment / M2Amiga / Modules / GUIEnvSupport.def < prev    next >
Encoding:
Modula Definition  |  1994-09-14  |  1.7 KB  |  58 lines
  1. (****************************************************************************
  2.  
  3. $RCSfile: GUIEnvSupport.def $
  4.  
  5. $Revision: 1.3 $
  6.     $Date: 1994/09/14 17:40:34 $
  7.  
  8.     Some needful extra definitions and functions for GUIEnvironment
  9.  
  10.     M2Amiga Modula-2 Compiler V4.3
  11.  
  12.   Copyright © 1994, Carsten Ziegeler
  13.                     Augustin-Wibbelt-Str.7, 33106 Paderborn, Germany
  14.  
  15. ****************************************************************************)
  16. DEFINITION MODULE GUIEnvSupport;
  17.  
  18.   FROM SYSTEM     IMPORT ADDRESS;
  19.   FROM GraphicsD  IMPORT TextAttrPtr, hiresKey, loresKey, defaultMonitorID,
  20.                          palMonitorID;
  21.   FROM IntuitionD IMPORT GadgetPtr;
  22.   FROM UtilityD   IMPORT HookPtr, TagItemPtr;
  23. IMPORT R, D:GUIEnvD;
  24.  
  25. CONST
  26.  
  27. (* -------------- screen support: displayIDs ----------------------------- *)
  28.  
  29.   gesHiresPalID  = hiresKey + palMonitorID;
  30.   gesHiresID     = hiresKey + defaultMonitorID;
  31.   gesLoresPalID  = loresKey + palMonitorID;
  32.   gesLoresID     = loresKey + defaultMonitorID;
  33.  
  34.  
  35. (* -------------------------- tag data support --------------------------- *)
  36.  
  37.   gegShiftLeft   = 256*256*256;
  38.   gegShiftTop    = 256*256;
  39.   gegShiftWidth  = 256;
  40.   gegShiftHeight = 1;
  41.  
  42.   PROCEDURE GADDESC(left, top, width, height : CARDINAL):LONGCARD;
  43.  
  44.   PROCEDURE GADOBJS(left, top, width, height : CARDINAL):LONGCARD;
  45.  
  46. (* ------------------------------- Font support ------------------------- *)
  47.  
  48.   PROCEDURE TopazAttr():TextAttrPtr;
  49.  
  50. (* ---------------------------- Hook functions -------------------------- *)
  51.  
  52.   PROCEDURE GEUpdateEntryGadgetAHook(hook{R.A0} : HookPtr;
  53.                                      gadget{R.A2} : GadgetPtr;
  54.                                      unused{R.A1} : ADDRESS) : LONGINT;
  55.  
  56.  
  57. END GUIEnvSupport.
  58.